DO WHILE uCity=SPACE(16)  

   STORE 0 TO CNT,CR,cnt1,cr1
   SELE 8
   SET EXCLU OFF
   use &dr&f8  index &dr&f8
   uCity=space(16)
   do boxem with 13,3,'Enter Initial of City Name : ','uCity','N','BG','W+','N',16,.T.,.T.
   if uCity=space(16) .or. lastkey()=27
      return
   endif
   lyrx=savescreen(0,0,24,79)

   go top
   seek alltrim(uCity)
   do while alltrim(city)=alltrim(uCity) .and. .NOT. EOF()
      CNT=CNT+1
      skip
   ENDDO
   if cnt=0
      uCity = space(16)
      return
   endif
   if cnt<10
      cntx=cnt+1
   else
      cntx=11
   endif

   DECLARE FLN[CNT]
   SELE 8
   GO TOP

   seek alltrim(uCity)
   do while alltrim(city)=alltrim(uCity) .and. .NOT. EOF()
      CR=CR+1
      FLN[CR]=+City
      SKIP
   ENDDO
   INKEY()
   set colo to w+/r,gr+/r

*   @ 12,44 clea to 23,77
*   @ 12,44 to 23,77 double

   @ 12,44 clea to 12+cntx,77
   @ 12,44 to 12+cntx,77 double


   pilih=achoice(13,46,22,75,FLN)
   IF LASTKEY()=13
      uCity=FLN[PILIH]
*   else
*      IF LASTKEY()=27
*         DO INPNATIO
*         restscreen(0,0,24,79,lyrx)
*      ELSE
*         set cons off
*         wait ' '
*         set cons on
*         restscreen(0,0,24,79,lyrx)
*         loop
*      ENDIF
   ENDIF
enddo

RETURN
